home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 14
/
014.d81
/
alarm boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
500b
|
21 lines
10 poke53281,2:poke53280,2
15 print"[158][147]"
20 print" [215]arning!"
30 print:print
40 print"[217]ou cannot run [193][204][193][210][205][160][195][207][206][212][210][207][204] from"
50 print:print"the [204][207][193][196][211][212][193][210] environment."
60 print:print"[208]ress a key to return to [204][207][193][196][211][212][193][210]."
90 getk$:ifk$=""thengosub60000:goto90
95 goto 62000
100 poke53280,rnd(1)*15
110 k=val(k$)
120 onkgoto62000,63000:goto90
60000 ifc=0thenc=1:goto60005
60002 c=0
60005 ifc=0thenprint" [215]arning!"
60010 ifc=1thenprint" [215]arning!"
60020 return
62000 remconnect to actual entery pgm
62002 print"[147]load"chr$(34)"payload" chr$(34)",8":print"run"
62004 poke198,0:poke631,13:poke632,13:poke198,2:end